1000 R$=CHR$(13):S$=CHR$(32):POKE53280,6:POKE53281,1:PRINT"[147][154]";
1010 PRINT"                                        ";
1020 PRINT"   [195]REATE [197][194][194][211] 64 [211]YSTEM [196]ISK [205]ODULE    ";
1030 PRINT"                                        ";
1040 PRINT"      [197][194][194][211] 64 WRITTEN BY [197]D [208]ARRY       ";
1050 PRINT"                                        
1060 [153]"STOP  RIGHT$NSERT  A  STR$RIGHT$(null)(null) TO  BECOME YOUR VALPEEKPEEK(null)
1070 PRINT"  FILES DISK AND PRESS THE [210][197][212][213][210][206] KEY.
1080 [153]"   (null)(null)(null)VAL : (null)HIS WILL FORMAT YOUR DISK.
1090 PRINTSPC(8)"[154]([212]AKES ABOUT 10 MINUTES)
1100 [161]K$:[139]K$[179][177][199](13)[167]1100
1110 [159]15,8,15,"N0:EBBS 64 FILES,EP":[153]"ASCORMATTING STR$ISK...
1120 PRINT#15,"UI":PRINT#15,"I0":CLOSE15:PRINT"[145][195]REATING THESE FILES:
1130 [153]"DATE - SYSTEM DATE":[159]8,8,8,"0:DATE,S,W":[152]8,"870530":[160]8
1140 [153]"LAST CALLER - LAST SYSTEM CALLER
1150 OPEN8,8,8,"0:LAST CALLER,S,W":PRINT#8,"[197]D [208]ARRY":PRINT#8,1:CLOSE8:PRINT"OB - OPENING BULLETIN
1160 [159]8,8,8,"0:OB,S,W":[152]8,"(null)PENING PEEKULLETIN GOETH HERE":[160]8
1170 [153]"NULOM - NEW USERS LOGON MESSAGE":[159]8,8,8,"NULOM,S,W
1180 PRINT#8,"[215]ELCOME NEW USER...":CLOSE8:FORI=1TO5:PRINT"INDEX"I"- MESSAGE BASE"I"INDEX
1190 [159]8,8,8,"0:INDEX"[170][196](I)[170]",S,W":[152]8,"0":[160]8:[130]
1200 [153]"TM - TEXT MENU":[159]8,8,8,"0:TM,S,W":[152]8,"(null)EXT (null)ENU (VALXAMPLES)"R$S$
1210 [152]8,"(ATN) (null)YSTEM RIGHT$NFO"R$"(PEEK) (null)THER PEEKPEEK(null) (null)UMBERS"R$"(LEN) LEN64 RIGHT$NFO"
1220 [152]8,"(STR$) LEN128 RIGHT$NFO"R$"((null)) (null)AIN (null)ENU":[160]8
1230 [153]"MM - MAIN MENU":[159]8,8,8,"0:MM,S,W":[152]8,"(null)AIN (null)ENU"R$S$
1240 [152]8,"(ATN) (null)ESSAGE (null)ECTION
1250 PRINT#8,"([194]) [207]PENING [194]ULLETIN"R$"([195]) [196]ISPLAY [195]ALLER [204]OG
1260 [152]8,"(STR$) STR$ATE & (null)IME"R$"(VAL) (null)END (null)ERSONAL (null)AIL
1270 PRINT#8,"([198]) [211]END [211]YSOP [198]EEDBACK"R$"([205]) [210]EAD [217]OUR [205]AIL
1280 [152]8,"((null)) LENHANGE (null)OUR (null)ASSWORD"R$"((null)) (null)UIT/(null)OGOFF"R$"((null)) (null)EXT (null)ECTION
1290 PRINT#8,"([213]) [213]SER [211]EARCH/[196]ISPLAY"R$"([214]) [197][194][194][211] [214]ERSION/[201]NFORMATION
1300 [152]8,"((null)) (null)AGE (null)YSOP FOR LENHAT"R$"(*) (null)OGGLE ATNUTO-(null)AUSE":[160]8
1310 [153]"SM - SYSOP MENU":[159]8,8,8,"0:SM,S,W":[152]8,"(null)YSOP (null)ENU"R$S$
1320 [152]8,"($) STR$ISKCLOSESTR$IRECTORY"R$"(@) (null)END STR$ISK LENOMMAND"R$"(ATN) (null)ESSAGE PEEKASE
1330 PRINT#8,"([194]) [211]YSOP [194]ULLETIN"R$"([196]) [210]ESET [211]YSTEM [196]ATE"R$"([203]) [196]ELETE [198]EEDBACK
1340 [152]8,"((null)) (null)OAD/VALDIT (null)YSTEM ASCILE"R$"(LEFT$) LEFT$ARDCOPY ASCILE"
1350 [152]8,"((null)) (null)EW (null)SER (null)OG"R$"((null)) (null)UIT/(null)OGOFF
1360 PRINT#8,"([210]) [210]EAD [198]ILE"R$"([212]) [210]ESET [211]YSTEM [212]IME
1370 [152]8,"((null)) ATNDD/VALDIT (null)SERFILE"R$"((null)) (null)RITE (null)YSTEM ASCILE
1380 PRINT#8,"([216]) [193]DD/[197]DIT [196][204] [198]ILE"R$"([218]) [213][204]/[196][204] [211]ECTION"R$"(^) [210]ETURN TO [194][194][211]":CLOSE8
1390 PRINT"ID - SYSTEM IDENTIFICATION":OPEN8,8,8,"0:ID,S,W
1400 [152]8," *===========================*":[152]8," RIGHT$  (null)ELCOME TO VALPEEKPEEK(null) 64 V3.0  RIGHT$
1410 PRINT#8," [201]   [204]OCATED IN MY [200][207][205][197][212][207][215][206]  [201]":PRINT#8," [201] [207]PERATED BY A NICE FELLOW [201]
1420 [152]8," RIGHT$     (null)PEN 24 HOURS/7 DAYS  RIGHT$":[152]8," RIGHT$  VALPEEKPEEK(null) (null)RITTEN BY VALD (null)ARRY RIGHT$
1430 PRINT#8," *===========================*":CLOSE8
1440 OPEN15,8,15,"I":PRINT"USERS - 250 USERFILES":S$=CHR$(32):R$=CHR$(13):A$="
1450 [129]K[178]1[164]20:A$[178]A$[170]S$[170]R$:[130]:[159]6,8,6,"0:USERS,L,"[170][199](127):[152]15,"P"[199](6)[199](250)[199](0)[199](1)
1460 [152]6,A$:[132]15,A,B$,C,D:[160]6:[160]15:[159]15,8,15:[159]8,8,8,"0:USERS":[129]X[178]1[164]250
1470 [152]15,"P"[199](8)[199](X)[199](0)[199](1):[152]8,A$:[130]:[160]15:[160]8:[129]X[178]1[164]5
1480 [153]"DL"X" - TRANSFER CONTROL FILE"X:[159]15,8,15:[159]8,8,8,"DL"[170][196](X)[170]",L,"[170][199](115)
1490 [152]15,"P"[199](8)[199](35)[199](0)[199](1):[152]8,A$:[160]8:[132]15,A,B$,C,D:[152]15,"I":[160]15
1500 [159]15,8,15:[159]8,8,8,"DL"[170][196](X):[129]I[178]1[164]35:[152]15,"P"[199](8)[199](I)[199](0)[199](1)
1510 [152]8,A$:[130]:[160]8:[152]15,"I0":[160]15:[130]:[153]"STOPPEEKPEEK(null) FILES DISK CREATED.
1520 PRINT"[197]NSURE TO RUN 64 CONFIG MODULE. [197]P